generator grafu v COM
Otázka od: david.kopecek@hacktrack.com
24. 7. 2004 9:51
Zdravim
nevite nekdo jakym zpusobem vygenerovat grafy v COM komponente, v kvalite jakou
poskytuje komponenta TChart ?.. Skousel jsem dat TChart do COM ale
nejde to.
--
S pozdravem,
david
david.kopecek@hacktrack.com
Odpovedá: Petr Vones
24. 7. 2004 11:29
From: <david.kopecek@hacktrack.com>
> nevite nekdo jakym zpusobem vygenerovat grafy v COM komponente, v kvalite
> jakou poskytuje komponenta TChart ?.. Skousel jsem dat TChart do COM ale
> nejde to.
A v cem je konkretne problem ?
Napriklad pro ISAPI je to popsano tady:
http://www.matlus.com/scripts/website.dll/Tutorials?DelphiISAPI&ISAPIUsingTChart&15
Petr Vones
Odpovedá: david.kopecek@hacktrack.com
24. 7. 2004 11:55
Ahoj
>> nevite nekdo jakym zpusobem vygenerovat grafy v COM komponente, v kvalite
>> jakou poskytuje komponenta TChart ?.. Skousel jsem dat TChart do COM ale
>> nejde to.
PV> A v cem je konkretne problem ?
PV> Napriklad pro ISAPI je to popsano tady:
PV>
http://www.matlus.com/scripts/website.dll/Tutorials?DelphiISAPI&ISAPIUsingTChart&15
no napriklad je problem v
FChart := TChart.Create(nil);
na tomto to proste krachne protoze je to visualni komponenta co
poteubje Form...
--
S pozdravem,
David
Odpovedá: Petr Vones
26. 7. 2004 12:58
From: <david.kopecek@hacktrack.com>
> no napriklad je problem v
>
>
> FChart := TChart.Create(nil);
>
> na tomto to proste krachne protoze je to visualni komponenta co
> poteubje Form...
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Forms, TeeProcs, TeEngine, Chart;
procedure Run;
var
C: TChart;
F: TForm;
begin
F := TForm.CreateNew(nil);
try
C := TChart.Create(F);
C.Parent := F;
C.SaveToBitmapFile('chart.bmp');
finally
F.Free;
end;
end;
begin
Run;
end.
Petr Vones
Odpovedá: david.kopecek@hacktrack.com
27. 7. 2004 20:27
Cau
PV> program Project1;
PV> {$APPTYPE CONSOLE}
PV> uses
PV> SysUtils, Forms, TeeProcs, TeEngine, Chart;
PV> procedure Run;
PV> var
PV> C: TChart;
PV> F: TForm;
PV> begin
PV> F := TForm.CreateNew(nil);
PV> try
PV> C := TChart.Create(F);
PV> C.Parent := F;
PV> C.SaveToBitmapFile('chart.bmp');
PV> finally
PV> F.Free;
PV> end;
PV> end;
PV> begin
PV> Run;
PV> end.
me to pri variante bez TFOrm padalo pri tom SaveToBitmapFile.. ale
resim to takhle
bitmap:=nil;
Rect.Left := 0;
Rect.Top := 0;
Rect.Right := 250;
Rect.Bottom := 180;
Bitmap := FChart.TeeCreateBitmap(clWhite, Rect);
bitmap.SaveToFile('d:\temp\sss.bmp');
--
S pozdravem,
david
david.kopecek@hacktrack.com